home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 135 / Tiger_Disk_135_20xx_Tiger-Crew-Disk_de_Side_A.d64 / miss marple (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  31KB  |  1,065 lines
  1. 0 rem"[141][147]*miss marple*[141]*block i:raumzeichnen*
  2. 1 [156]:[151]53280,6:[151]53281,6:[153]"loadcont"[199](9)[199](142)[199](8):[137]21200
  3. 2 fe[178]1:lo[178]0:kl[178]0:tz[178]0:gg[178]0:gi[178]1:si[178]1:bo[178]1:tr[178]0:co[178][181]([187](45)[172]9000)[170]1000:pa[178]0
  4. 3 sf[178]2:hu[178]1:v[178]53248:[151]v[170]21,0
  5. 4 fl[178]0:fi[178]1:ws$[178]""
  6. 5 [137] 17000
  7. 10 mo[178]mo(x,y,z):tt[178]tt(x,y,z):[139]z[178]5[167]5000
  8. 11 [139]x[178]2[175]y[178]4[175]z[178]1[167][141]21000
  9. 12 [153]"load":[151]v[170]21,0
  10. 13 [139]si[178]1[176](gg[175]2)[178]2[167][137]18
  11. 14 [139](ge(x,y,z)[175]2)[178]2[167][137]18
  12. 15 [153]"contes ist dunkel !"
  13. 17 [151]53281,0:[151]53280,0:[137]3000
  14. 18 ws$[178]"":[139]si[178]0[167]ws$[178]"cont"
  15. 19 [151]53281,6:[151]53280,6
  16. 20 [129]q[178]1[164]5:[153][163]q)"(NULL)";:[153][163]39[171]q)"(NULL)":[130]
  17. 25 [153]"on     andandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  18. 30 [129]q[178]1[164]10:[153][163]5)"+";:[153][163]34)"sgn":[130]
  19. 40 [153]"     usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusron"
  20. 50 [129]q[178]5[164]1[169][171]1:[153][163]q)"(NULL)";:[153][163]39[171]q)"(NULL)":[130]
  21. 60 [129]q[178]0[164]7
  22. 61 [139] q[178]7[167] [153]""
  23. 62 [139]q[178]7[167] [153][163]17)"(NULL)>right$cmdcmd"ws$"usrcont"
  24. 70 [139](tt [175]2[174]q)[178]2[174]q[167][137]100
  25. 80 [130]q
  26. 81 [139]x[178]2[175]y[178]1[175]z[178]1[175]pa[178]0[167]pa[178]1
  27. 82 [139]pa[178][171]1[167]ge(2,1,1)[178](ge(2,1,1)[175][168]128)
  28. 83 [139]pa[178]1[175](x[179][177]2[176]y[179][177]1[176]z[179][177]1)[167][153]"der papagei ist sehr anhaenglich"
  29. 84 [137]8000
  30. 85 [137]10000
  31. 86 [139]a$[178]"o"[175]x[178]3[175]y[178]3[175]z[178]2[167][137]8900
  32. 87 [139]x[178]2[175]y[178]2[175]z[178]4[167][137]9000
  33. 88 [139]x[178]1[175]y[178]1[175]z[178]1[167][137]9030
  34. 89 [139]x[178]2[175]y[178]4[175]z[178]1[167][141]21030
  35. 90 [137]3000
  36. 95 [143]"gosub*block ia:unterprogramme tueren*
  37. 100 onqgoto80,400,300,600,500,700,900
  38. 200 print""
  39. 210 printtab(14)"[205]      [206][146]"
  40. 211 printtab(14)"  [146]"
  41. 212 printtab(14)"  [146]"
  42. 213 printtab(14)"  [146]"
  43. 214 printtab(14)"  [146]"
  44. 215 printtab(14)"  [146]"
  45. 216 printtab(14)"  [146]"
  46. 217 printtab(14)"  [146]"
  47. 218 printtab(14)"  [146]"
  48. 220 printtab(15)"      "
  49. 250 goto80
  50. 300 print""
  51. 310 print" [223]"
  52. 311 print"  [223][146]"
  53. 312 print" [223] [223][146]"
  54. 316 print"  [223][206][146]"
  55. 318 ifx=1thengoto350
  56. 320 foro=1to9:print"    [146]":nexto
  57. 330 print"   [169]"
  58. 331 print"   "
  59. 332 print"     "
  60. 340 goto80
  61. 350 print"    [146]"
  62. 351 print"    [146]"
  63. 352 print"    [146]"
  64. 353 print"    [146]"
  65. 355 print" [169][205][146]"
  66. 356 print" [169] [146][169]"
  67. 357 print"  [146][169]"
  68. 358 print" [169][145][145][145][145][145][145][145][145][145][145][145][157][157][167][157][167]"
  69. 370 goto80
  70. 400 print""
  71. 410 printtab(36)"[169]"
  72. 420 printtab(36)"[169] "
  73. 421 printtab(36)"[169] [146][169]"
  74. 422 printtab(36)"[205][146][169][157]"
  75. 425 foro=1to9:printtab(36)" [146]":nexto
  76. 431 printtab(36)"[223]"
  77. 432 printtab(36)"  "
  78. 433 printtab(36)"   "
  79. 440 goto80
  80. 500 print""
  81. 510 printtab(27)"[175][175][175][175][175][175]"
  82. 511 printtab(27)"[205] [205]   [205]"
  83. 512 printtab(27)" [183][183][183][183][183][183]"
  84. 520 goto80
  85. 600 print""
  86. 610 printtab(27)" [175][175][175][175][175][175]
  87. 611 [153][163]27)"(NULL)spc(spc(andandand(NULL)
  88. 612 printtab(27)"[180][166][166][166]
  89. 613 [153][163]27)"sgnspc(spc(spc(spc(
  90. 614 printtab(27)"[180][166][166][166][166][166]
  91. 615 [153][163]27)"sgnspc(spc(spc(spc(spc(spc(
  92. 616 printtab(27)"[180][166][166][166][166][166][166][223][223][146]"
  93. 617 printtab(27)"[180][166][166][166][166][166][223][223][146][166]"
  94. 618 printtab(27)"[180][166][166][166][166][223][223][146][166][166]"
  95. 619 printtab(27)"[180][166][166][166][223][223][146][166][166][166]"
  96. 620 printtab(27)"[180][166][166][223][223][146][166][166][166][166]"
  97. 621 printtab(27)"[180][166][223][223][146][166][166][166][166][166]"
  98. 622 printtab(27)"[205][223][223][146][166][166][166][166][166][166]"
  99. 623 printtab(27)" [205][166][166][166][166][166][166][166]"
  100. 630 goto80
  101. 700 print""
  102. 710 print"  [167][223]"
  103. 720 print"  [167] [223]"
  104. 730 print"  [167]  "
  105. 740 print"  [167]  "
  106. 750 print"  [167]  "
  107. 760 print"  [167] [206][206]"
  108. 770 print"[175][175][186][206][206][206][206]"
  109. 780 print"[175][186][175][186][206][206][206][206]"
  110. 790 print"[186][175][186][175][186][206][206][206][206]"
  111. 800 print"[175][186][175][186][175][186][206][206][146][169]"
  112. 810 print"[186][175][186][175][186][175][186][146][169]"
  113. 815 fe$="[169]   ":iffe=1andy=1thenfe$="[206][193][193][193]"
  114. 820 print"[175][186][206]"fe$"  [206]"
  115. 830 print"[186][186][206][164][164][164][164][164][206][206]"
  116. 840 print"[175][186][175][186][175][186][175][186][206][206]"
  117. 850 print"[186][175][186][144] [146][169][154][186][186][206][146][169]"
  118. 860 print"[175][186][186][144][146][169][154][175][186][146][169]"
  119. 870 goto80
  120. 900 print""
  121. 901 if lo<>1 then 905
  122. 902 forw=1to8:printtab(17)" [171][192][179] ":nextw:goto910
  123. 905 printtab(17)" [164][164][164]"
  124. 910 printtab(17)"[202][198][210][198][203]"
  125. 915 printtab(17)"[221]"
  126. 920 printtab(17)"[221]"
  127. 925 printtab(17)ws$"[193] [193] [193][154]"
  128. 930 printtab(17)"[221][213][219][201][221]"
  129. 935 printtab(17)"[202][203][218][202][203]"
  130. 940 goto80
  131. 1000 rem"[141]*block ii:daten*
  132. 1001 [131] 18,6,10,66,7,11,37,41,3,3,6,8,1,13,9,16
  133. 1010 [131] 36,10,130,66,2,3,5,11,3,7,12,11,5,15,12,41
  134. 1020 [131] 6,24,34,18,13,12,7,9,14,14,13,10,1,1,4,9
  135. 1025 [143] moebel*******
  136. 1030 [131]2,34,16,48,128,16,2,0,32,2,6,25,81,0,16,128
  137. 1040 [131]2,1,161,1,20,16,64,16,65,130,36,17,34,0,160,64
  138. 1050 [131]38,0,2,6,128,65,16,65,36,4,128,1,18,144,7,16
  139. 1055 [143] gegenstaende*****
  140. 1060 [131]0,128,16,0,0,0,0,0,0,0,0,0,0,0,0,64
  141. 1070 [131]0,0,0,0,4,0,2,0,0,0,0,0,0,0,0,0
  142. 1080 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0
  143. 1090 [143] papagei
  144. 1100 [131] 3,248,0,6,4,224,14,245,240,29,249,150,51,249,191,7,251,159,6,219
  145. 1110 [131]251,12,151,226,24,7,224,0,15,192,0,15,192,0,31,128,0,63,0,0,126,192
  146. 1111 [131]0,126,96,0,251,56,1,225,196,7,128,160,14,1,16,56,0,0,224,0,0
  147. 1112 [143] hund
  148. 1120 [131]0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,32,0,3,96,0,69,128,0,63,128,0
  149. 1130 [131]63,128,0,7,192,0,55,240,0,31,248,0,3,252,0,3,254,0,1,255,24,1,191,140
  150. 1140 [131]1,159,132,1,159,140,3,31,216,7,120,240
  151. 1149 [143] skorpion
  152. 1150 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,26,0,0,38,0,0,78,0,31,64,1,240
  153. 1160 [131]64,3,190,96,7,0,59,111,96,29,181,128,11,111,96,4,151,0,9,35,190
  154. 1170 [131]18,73,240,0,0,31,0,0,0,0,0,0
  155. 1175 [143] moerder1
  156. 1180 [131]0,0,0,0,48,0,0,60,0,8,127,128,4,255,128,3,255,128,0,143,48,1,0,192
  157. 1190 [131]1,102,128,1,36,128,7,8,224,31,8,248,61,64,188,57,60,156,120,185,30
  158. 1200 [131]112,65,14,240,62,15,227,247,199,255,255,255,255,255,255,255,247,255
  159. 1205 [143] m2
  160. 1210 [131]247,255,247,251,255,239,251,247,239,251,255,239,251,255,239
  161. 1220 [131]251,247,239,253,255,255,253,255,207,126,247,143,63,127,31
  162. 1230 [131]95,126,46,111,180,94,119,216,220,123,165,188,125,66,186,126,131,122
  163. 1231 [131]127,6,150,127,136,102,127,252,30,127,246,30,127,255,62
  164. 1234 [143] m3
  165. 1240 [131] 127,255,254
  166. 1245 [131] 127,247,254
  167. 1246 [131] 127,255,254
  168. 1247 [131] 127,255,254
  169. 1248 [131] 127,247,254
  170. 1249 [131] 127,255,254
  171. 1250 [131] 127,255,254
  172. 1251 [131] 127,255,254
  173. 1252 [131] 10,165,80
  174. 1253 [131] 10,165,80
  175. 1254 [131] 10,165,80
  176. 1255 [131] 10,165,80
  177. 1256 [131] 10,165,80
  178. 1257 [131] 10,165,80
  179. 1258 [131] 10,165,80
  180. 1260 [131] 15,231,240,3,195,192,7,231,224,15,102,240,30,0,120,0,0,0
  181. 1270 [143] lied
  182. 1280 [131]0,3,4455,2,4455,1,4455,2,4455,1,4455,1,4455,1,4455,2,4455,1,4455,2
  183. 1290 [131]3338,1,4455,1,5001,1,5613,4,5613,2.7,5001,1,5613,.3,5001,.3,4455,4
  184. 1300 [131]4455,2.7,5001,1,5613,.3,5001,.3,5613,4,5613,2.7,5001,1,5613,.3
  185. 1310 [131]5001,.3,4455,4,4455,1.8,3338,1,4455,1,5001,1,5298,4,5298,2.7,5001,1
  186. 1320 [131]5298,.3,5001,.3,4455,4,4455,2.7,5001,1,5613,.3,5001,.3,5613,4,5613,2.7
  187. 1330 [131]5001,1,5613,.3,5001,.3,4455,4,4455,1.7,3338,.9,4455,.9,5001,.9
  188. 1340 [131]5613,.9,4455,.9,3338,.9,5613,.9,4455,.9,3338,.9,5613,.9,4455,.9
  189. 1350 [131]5001,.3,5613,.3,5001,.3,4205,.3,3338,.9,5001,.9,4205,.9,3338,.9
  190. 1360 [131]5001,.9,4205,.9,4455,.9,3338,.9,2807,.9,4455,.9,3746,.9,2974,.9
  191. 1370 [131]2500,.9,2228,.9
  192. 1380 [131]2103,.2,2228,.2
  193. 1390 [131]2103,.2,2228,.2
  194. 1400 [131]2103,.2,2228,.2
  195. 1410 [131]1873,.5,2103,.5,2228,3,-1,-1,-1
  196. 1490 [143]"gosubunterprogramme
  197. 1500 print"[147]"
  198. 1510 print"[150]bei diesem riskanten unternehmen"
  199. 1520 print"sind sie vom tisch gefallen!"
  200. 1530 goto3263
  201. 1600 print"der kronleuchter haengt zu hoch !":goto3000
  202. 1610 print"ok                                   ":goto3000
  203. 1900 rem"[141]block iii:daten einlesen
  204. 2000 [134]mo(5,5,5):[134]tt(5,5,5):[134]ge(5,5,5):[134]sp(3,62)
  205. 2001 [129] y[178]1[164]3:[129]z[178]1[164]4:[129]x[178]1[164]4:[135]tt(x,y,z):[130]x,z,y
  206. 2243 tt(1,1,5)[178]4:tt(4,0,2)[178]16:tt(2,4,1)[178]32:tt(2,2,5)[178]1:tt(4,1,5)[178]12:tt(3,1,5)[178]12
  207. 2244 tt(2,1,5)[178]12:[129]y[178]1[164]3:[129]z[178]1[164]4:[129]x[178]1[164]4:[135]mo(x,y,z):[130]x,z,y
  208. 2250 tt(5,1,5)[178]8
  209. 2321 [129] y[178]1[164]3:[129]z[178]1[164]4:[129]x[178]1[164]4:[135]ge(x,y,z):[130]x,z,y:ge(4,0,2)[178]8
  210. 2420 x[178]4:y[178]1:z[178]5
  211. 2500 [129] qw[178]0[164]62:[135]rq:[151]832[170]qw,rq:[130]qw
  212. 2510 [129]tr[178]0[164]62:[135]te:[151]896[170]tr,te:[130]tr
  213. 2520 [129]ui[178]0[164]62:[135]op:[151]960[170]ui,op:[130]ui
  214. 2550 [129]we[178]1[164]3:[129]ty[178]0[164]62:[135] sp(we,ty):[130]ty,we
  215. 2570 [134]hh(100):[134]ll(100):[134]dd(100)
  216. 2580 qy[178]0
  217. 2590 [135]hl:[135] dd(qy):hh(qy)[178][181](hl[173]256):ll(qy)[178]hl[171]256[172]hh(qy)
  218. 2600 [139]hh(qy)[178][171]1[167]2700
  219. 2610 qy[178]qy[170]1:[137]2590
  220. 2700 [137]17200
  221. 2990 [143]"gosubblock iv:befehlsauswertung
  222. 3000 ifpa=1andbr=1then3010
  223. 3001 ifx=2andy=4andz=1thengoto14500
  224. 3002 print""
  225. 3005 goto3115
  226. 3010 gg=ggandnot16:pa=-1:print"der papagei hat den brief geklaut":goto3001
  227. 3115 if(tt and 2)=2 thenprint"[145] s[146]ued ist moeglich"
  228. 3120 poke198,0:input" was jetzt ";a$:ifkl<>0andleft$(a$,7)<>"kletter"thenkl=0
  229. 3121 ifx=1andy=1andz=2anda$="o"then 3260
  230. 3122 ifx=2andy=1andz=2anda$="w"then 3260
  231. 3123 ifa$="r"andy=1andz=2andx=3then goto 3292
  232. 3124 ifx=1andy=3andz=3anda$="w"then7000
  233. 3125 ifx=1andy=3andz=2anda$="w"then7500
  234. 3126 ifx=4andy=1andz=4andsh=0anda$="s"thenprint"die haustuer ist verschlossen[145][145]"
  235. 3127 ifx=4andy=1andz=4andsh=0anda$="s"thengoto 3120
  236. 3128 ifx=1andy=1andz=4anda$="verschiebe regal"thentt(1,1,4)=5:goto10
  237. 3129 ifx=1andy=3andz=1andtz=0anda$="o"thenprint"tuer ist verschlossen":goto3000
  238. 3130 ifx=1andy=3andz=1and(ggand1)=1anda$="oeffne tuer"thentz=1:goto1610
  239. 3131 ifx=1andy=3andz=1and(ggand1)=1anda$="oeffne tuer"thentz=1:goto1610
  240. 3132 ifx=2andy=3andz=2anda$="o"thentt(3,3,2)=15
  241. 3133 ifx=4andy=2andz=3thenprint"[147]der skorpion hat sie toedlich gestochen":goto3263
  242. 3134 ifx=4andy=3andz=3and(ggand2)=2anda$="s"thengoto14000
  243. 3135 ifx=4andy=3andz=1anda$="h"then 31000
  244. 3136 ifx=1andy=1andz=5anda$="w"then7110
  245. 3139 if a$="n"and((tt and1)=1)thenz=z-1:goto 4200
  246. 3140 if a$="s"and((tt and2)=2)thenz=z+1:goto 4200
  247. 3150 if a$="o"and((tt and4)=4)thenx=x+1:goto 4200
  248. 3160 if a$="w"and((tt and8)=8)thenx=x-1:goto 4200
  249. 3170 if a$="h"and((tt and16)=16)theny=y+1:goto 4200
  250. 3180 if a$="r"and((tt and32)=32)theny=y-1:goto 4200
  251. 3190 if a$="kletter kamin"andx=4andy=1andz=1theny=2:goto3200
  252. 3191 if a$="kletter kamin"andx=4andy=2andz=1theny=1:goto3216
  253. 3195 goto 3220
  254. 3200 rem
  255. 3202 print"[147]sie sind im 1.stock !":pokev+21,0
  256. 3203 ifpa=1thenprint"den papagei haben sie abgeschuettelt !":pa=-1
  257. 3205 for q=1to2000 :nextq
  258. 3210 goto 10
  259. 3216 print"[147]sie sind wieder im erdgeschoss!":goto3205
  260. 3220 ifx=4andy=1andz=5anda$="n"thenprint"die haustuer ist verschlosen":goto3000
  261. 3230 ifx=2andy=1andz=5anda$="kletter efeu"then3240
  262. 3233 ifright$(a$,4)="wein"thenprint"idiot,das ist efeu!":goto3000
  263. 3235 goto3250
  264. 3240 ifsu=0then3244
  265. 3241 y=2:goto10
  266. 3244 print"[147]beim klettern sind sie mit den fuessen"
  267. 3245 print"abgerutscht und sind runtergefallen":print"sie sind tot!":goto3263
  268. 3250 goto 3265
  269. 3260 print"[147][150]ihnen ist ein fallgitter,"
  270. 3261 print"das ueber der tuer versteckt war,"
  271. 3262 print"auf den kopf gefallen !":print"[144]sie sind tot!"
  272. 3263 gosub 20000
  273. 3264 poke631,144:poke198,1:print"[144]  ready!!":poke53248+21,0:goto21300
  274. 3265 ifx=3andy=2andz=1anda$="kletter sofa"thenkl=1:goto1610
  275. 3266 ifx=3andy=2andz=1anda$="kletter tisch"thenkl=2:print" ok";sp$:goto 3000
  276. 3267 goto 3270
  277. 3268 if(a$="r"ora$="kletter boden"ora$="kletter runter")thenkl=0
  278. 3269 print"  sie sind auf dem boden !        ":goto 3000
  279. 3270 ifx=3andy=2andz=1andkl=1anda$="kletter kronleuchter"then lo=1:goto 6000
  280. 3271 ifx=3andy=2andz=1andkl=2anda$="kletter kronleuchter"then goto 1500
  281. 3272 ifx=3andy=2andz=1andkl=0anda$="kletter kronleuchter"thengoto 1600
  282. 3280 ifx=3andy=2andz=1andlo=1and(a$="h"ora$="kletter leiter")theny=y+1:goto10
  283. 3291 goto 3297
  284. 3292 print"[147][150]sie sind in den "
  285. 3293 print"[144]kartoffel-keller"
  286. 3294 print"[150]gefallen!"
  287. 3295 goto3263
  288. 3296 ifkl>0then4190
  289. 3297 ifzg=3andleft$(a$,4)="nimm"thenprint"sie sind voll beladen[145]":goto3000
  290. 3298 ifleft$(a$,3)="leg"andright$(a$,2)="ab"thenzg=zg-1
  291. 3299 ifleft$(a$,4)="nimm"thenzg=zg+1
  292. 3300 ifa$="nimm schluessel"and(geand1)=1thengg=gg+1:ge(x,y,z)=ge-1:goto10
  293. 3301 ifa$="nimm laterne"and(geand2)=2thengg=gg+2:ge(x,y,z)=ge-2:goto10
  294. 3302 ifa$="nimm spruehflasche"and(geand4)=4thengg=gg+4:ge(x,y,z)=ge-4:goto10
  295. 3303 ifa$="nimm flasche"and(geand8)=8thengg=gg+8:ge(x,y,z)=ge-8:goto10
  296. 3304 ifa$="nimm brief"and(geand16)=16thengg=gg+16:ge(x,y,z)=ge-16:goto10
  297. 3305 ifa$="nimm dose"and(geand32)=32thengg=gg+32:ge(x,y,z)=ge-32:goto10
  298. 3306 ifa$="nimm giesskanne"and(geand64)=64thengg=gg+64:ge(x,y,z)=ge-64:goto10
  299. 3308 ifleft$(a$,4)="nimm"thenzg=zg-1
  300. 3309 v$="leg"
  301. 3310 ifa$=v$+" schluessel ab"and(ggand1)=1thengg=gg-1:ge(x,y,z)=ge+1:goto10
  302. 3311 ifa$=v$+" laterne ab"and(ggand2)=2thengg=gg-2:ge(x,y,z)=ge+2:goto10
  303. 3312 ifa$=v$+" spruehflasche ab"and(ggand4)=4thengg=gg-4:ge(x,y,z)=ge+4:goto10
  304. 3313 ifa$=v$+" flasche ab"and(ggand8)=8thengg=gg-8:ge(x,y,z)=ge+8:goto10
  305. 3314 ifa$=v$+" brief ab"and(ggand16)=16thengg=gg-16:ge(x,y,z)=ge+16:goto10
  306. 3315 ifa$=v$+" dose ab"and(ggand32)=32thengg=gg-32:ge(x,y,z)=ge+32:goto10
  307. 3316 ifa$=v$+" giesskanne ab"and(ggand64)=64thengg=gg-64:ge(x,y,z)=ge+64:goto10
  308. 3318 ifleft$(a$,3)="leg"andright$(a$,2)="ab"thenzg=zg+1
  309. 3320 ifa$<>"besitz?"then3370
  310. 3330 print"[147]":printtab(7)"sie besitzen:":print:print
  311. 3340 if(ggand1)=1thenprinttab(15)"schluessel":print
  312. 3341 if(ggand2)=2thenprinttab(15)"laterne":print
  313. 3342 if(ggand4)=4thenprinttab(15)"spruehflasche":print
  314. 3343 if(ggand8)=8thenprinttab(15)"flasche":print
  315. 3344 if(ggand16)=16thenprinttab(15)"brief":print
  316. 3345 if(ggand32)=32thenprinttab(15)"dose":print
  317. 3346 if(ggand64)=64thenprinttab(15)"giesskanne":print
  318. 3350 print:print"ok?"
  319. 3360 getqw$:ifqw$=""then3360
  320. 3368 ifir=1thenreturn
  321. 3369 goto10
  322. 3370 ifx=4andy=1andz=1anda$="leere giesskanne"thena$="loesche feuer"
  323. 3380 ifx=4andy=1andz=1and(ggand64)=64andgi=1anda$="loesche feuer"thenfe=0:goto10
  324. 3390 if(ggand64)=64andgi=1anda$="leere giesskanne"thengi=0:goto1610
  325. 3400 ifx=4andy=1andz=3andleft$(a$,18)="entferne sicherung"thensi=0:goto10
  326. 3410 ifx=4andy=1andz=3anda$="schalte sicherung ein"thensi=1:goto10
  327. 3411 ifx=4andy=1andz=3anda$="schalte sicherungen ein"thensi=1:goto10
  328. 3420 ifx=3andy=1andz=3anda$="entferne bild"thenbo=0:goto10
  329. 3425 ifx=3andy=1andz=3andbo=0anda$="oeffne tresor"thengoto3435
  330. 3430 goto 3450
  331. 3435 input"[145] kodenummer               [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";ko
  332. 3440 if ko=cothen tr=1:ge(3,1,3)=(ge(3,1,3)or1):goto10
  333. 3445 print"falsche kodenummer          ":goto3000
  334. 3450 ifa$="lies brief"andbr=1and(ggand16)=16then11000
  335. 3460 if((ggand16)=16)andbr=0anda$="oeffne brief"then br=1:goto1610
  336. 3470 if(ggand32)=32anda$="oeffne dose"then ds=1:goto3490
  337. 3480 goto 3500
  338. 3490 print"ok!nun ist die dose offen!"
  339. 3495 print"sie enthaelt hundefutter!":goto3000
  340. 3500 rem
  341. 3501 if((ggand4)=4)anda$="leere spruehflasche"thensf=0:goto1610
  342. 3510 if((ggand8)=8)andfl=1andfi=1anda$="leere flasche"then fi=0:goto14100
  343. 3520 if(ggand8)=8 andfl=0anda$="leere flasche"thenprint"flasche ist zu":goto3000
  344. 3530 if((ggand8)=8)anda$="oeffne flasche"then3550
  345. 3540 goto3560
  346. 3550 fl=1:print"ok,die flasche enthaelt chloroform":goto3000
  347. 3560 ifx=5andga=0andleft$(a$,13)="oeffne garage"thenga=1:goto10
  348. 3570 ifx=5andmu=0anda$="oeffne muelltonne"thenmu=1:goto10
  349. 3572 ifx=5andmu=1anda$="nimm schuhe"thensu=1:goto10
  350. 3590 print
  351. 3650 ifx=5andmu=1anda$="schliesse muelltonne"thenmu=0:goto10
  352. 4190 print"unmoeglich[146]                       ";:goto3000
  353. 4200 goto10
  354. 4999 rem"[141]block v:zeichnen der aussenaufnahmen
  355. 5000 [153]"loadcont";
  356. 5010 [139]y[178]2[167]5850
  357. 5020 [145]x[171]1[137]5800,5300,5400,32000
  358. 5030 [153]"loadcont";
  359. 5040 [129] q[178]1[164]10
  360. 5041 [153][163]5)"sqr":[153][163]5)"andsqr"
  361. 5042 [130]q
  362. 5050 [153][163]5)"freusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  363. 5055 [153]""
  364. 5060 [153] [163]16)"(NULL)         (NULL)"
  365. 5070 [129]q[178]1[164]6:[153][163]16)"  ":[130]
  366. 5080 [153][163]16)"(NULL)         (NULL)"
  367. 5090 [153]:[153]:[153]:[153]:[153]:[153]
  368. 5092 [153]"*def(NULL)***"
  369. 5093 [153]"*****"
  370. 5094 [153]"****def(NULL)"
  371. 5095 [153]"*def(NULL)**for(NULL)waitwait***forintrndwaitrndcont"
  372. 5098 [137]3000
  373. 5300 [153]""
  374. 5303 [153] [163]25)"(NULL)       "
  375. 5306 [129]q[178]1[164]6:[153][163]25)" ":[130]
  376. 5310 [153][163]25)"(NULL)       "
  377. 5313 [153]""
  378. 5320 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  379. 5330 [153]""
  380. 5340 [153]" atn atn "
  381. 5341 [153]"atn(NULL)(NULL)>right$ "
  382. 5342 [153]"(NULL)mid$<atn(NULL)  "
  383. 5343 [153]"atn -(NULL)   "
  384. 5344 [153]">right$mid$=right$atn"
  385. 5345 [153]"(NULL)(NULL)=(NULL)mid$(NULL)"
  386. 5346 [153]"<(NULL)(NULL)   "
  387. 5347 [153]"-=right$atn "
  388. 5348 [153]"(NULL)(NULL)mid$(NULL) "
  389. 5349 [153]"right$(NULL)right$"
  390. 5350 [153]"mid$(NULL)(NULL)cont"
  391. 5363 [153][163]21)" def@"
  392. 5364 [153][163]20)"def@ -    def@"
  393. 5365 [153][163]20)"< < def@@ <def@"
  394. 5367 [153][163]20)"<<mid$<<<"
  395. 5368 [153][163]20)"-<---cont"
  396. 5369 [153][163]20)"print"wi$"cont":[153]
  397. 5390 [137]3000
  398. 5400 [129]q[178]1[164]20[169]2
  399. 5410 [153][163]30)"sqrwaitstep";
  400. 5420 [139]q[179][178]16[167][153][163]35)"step":[137]5431
  401. 5430 [153][163]51[171]q)"(NULL)"
  402. 5431 [153][163]29)"andsqrstepwait";
  403. 5432 [139]q[179][178]16[167][153][163]35)"step":[137]5440
  404. 5435 [153][163]50[171]q)"(NULL)"
  405. 5440 [130]q
  406. 5550 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusron(NULL) "
  407. 5560 [153]""
  408. 5570 [153]" (NULL)         (NULL)(NULL)         (NULL)wait"
  409. 5580 [129]q[178]1[164]6:[153]"     " :[130]
  410. 5590 [153]" (NULL)         (NULL) wait(NULL)on wait"
  411. 5600 [129]q[178]1[164]9:[153][163]17)"  wait":[130]q
  412. 5700 [153]""
  413. 5705 wi$[178]"":[129]q[178]0[164]9:wi$[178]wi$[170][199](34):[130]
  414. 5710 [153][163]4)" def@"
  415. 5711 [153][163]3)"def@ -    def@"
  416. 5712 [153][163]3)"< <  def@ <def@"
  417. 5713 [153][163]3)"- - def@- --"
  418. 5714 [153][163]3)"<<mid$<<<"
  419. 5715 [153][163]3)"-<---cont"
  420. 5716 [153][163]3)"print"wi$"cont"
  421. 5720 [137]3000
  422. 5800 [153]"loadcont";
  423. 5803 [153]"    (NULL)usrusrusrusrusrusrusrusrusr(NULL)(NULL) -right$atnmid$<-tanright$
  424. 5804 print"[154]    [180]         [170] [205][221][202][203][193][171][221][201][221][193]
  425. 5805 [153]"cont    sgn         + atn-right$atn-(NULL)tan(NULL)-(NULL)
  426. 5806 print"[154]    [204][175][175][175][175][175][175][175][175][175][186] [171][203][211][202][177][201][221][213][203]
  427. 5807 [153]"cont    (NULL)          (NULL)(NULL)contsgn(NULL)atnatnmid$<(NULL)
  428. 5808 print"    [221][154][205][175][175][193][154][175][175][193][154][175][175][193] [192][201][213][177][203][193][221]
  429. 5809 [153]"    (NULL)atn(NULL)tan(NULL)atn mid$=atn(NULL)atn-tan>tantan>(NULL)right$
  430. 5810 print"    [202][177][179][193][178][219][193][193][221][213][221][177][203][221][213][192][178][201][221][211]
  431. 5811 [153]"     (NULL)<atn(NULL)(NULL)(NULL)(NULL)tantan(NULL)=atn(NULL)mid$right$(NULL)(NULL)(NULL)atn
  432. 5812 print"    [213][179][171][203][211][219][203][211][221][202][179][211][213][203][193][221][211][213][177][203]
  433. 5813 [153]"    (NULL)(NULL)(NULL)atn(NULL)(NULL)tanright$(NULL)atn(NULL)(NULL)(NULL)atnmid$tantan(NULL)tanright$(NULL)right$
  434. 5814 print"   [193][211][213][179][202][203][221][193][211][171][203][221][171][192][203][193][221][211][179][193][202][179][211]
  435. 5815 [153]"   mid$tan<mid$tanright$-<atn(NULL)atn(NULL)mid$right$atnmid$(NULL)right$(NULL)-right$(NULL)
  436. 5816 print"    [193][171][178][201][171][203][211][202][179][202][219][201][171][221][192][192][203][221][202][221][203]
  437. 5817 [153]"    mid$(NULL)(NULL)(NULL)mid$=right$atn(NULL)atn(NULL)(NULL)-(NULL)atn(NULL)atn(NULL)(NULL)>
  438. 5818 print"     [213][179][193][213][203][202][219][179][202][201][221][221][213][219][203][171][221][203][193]
  439. 5819 [153]"     (NULL)mid$(NULL)(NULL)(NULL)=(NULL)(NULL)atn(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)atn-right$atn
  440. 5820 print"       [193][213][179][211][193][221][202][221][192][221][179][213][177][192][177][203][221][171][203]
  441. 5821 [153]"       mid$<(NULL) mid$<atn(NULL)(NULL)-(NULL)(NULL)atn(NULL)tan=<(NULL)
  442. 5822 print"        [211] [193][213][179][202][179][171][203] [171][203][211][193][221][221]
  443. 5823 [153]"          mid$(NULL)mid$=<-(NULL)atn-=tan(NULL)(NULL)-right$
  444. 5824 print"             [211][221][221][213][177][179][211][193][213][192][221][203]
  445. 5825 [153]"              (NULL)(NULL)(NULL) -tan(NULL)(NULL) (NULL)
  446. 5826 print"[154][145][145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  447. 5830 goto3000
  448. 5850 print"[147]";
  449. 5860 print""
  450. 5865 print"      sie sind auf dem balkon![146]":print
  451. 5870 printtab(14)"[205]        [206][146]"
  452. 5880 printtab(14)"  [146]"
  453. 5881 printtab(14)"  [146]"
  454. 5882 printtab(14)"  [146]"
  455. 5883 printtab(14)"  [146]"
  456. 5884 printtab(14)"  [146]"
  457. 5885 printtab(14)"  [146]"
  458. 5886 printtab(14)"  [146]"
  459. 5887 printtab(14)"  [146]"
  460. 5888 printtab(14)"  [146]"
  461. 5889 printtab(14)"  [146]"
  462. 5890 printtab(14)"  [146]"
  463. 5891 printtab(14)"  [146]"
  464. 5892 printtab(14)"  [146]"
  465. 5893 printtab(14)"  [146]"
  466. 5898 printtab(10)"[206][183][183][183][183]        [183][183][183][183][205]"
  467. 5900 print"[154]"
  468. 5902 forq=10to1step-1:printtab(q-1)"[169][146][169]";:printtab(11)"[180]";
  469. 5903 printtab(26)"[170]";:printtab(37-q)"[223][223][146]":next
  470. 5998 goto3000
  471. 5999 rem"[141]unterprogramm kronleuchter
  472. 6000 [139]si[178]0[167]6010
  473. 6001 [153]"load"
  474. 6002 [153]"sie haben einen "
  475. 6003 [153]"stromschlag bekommen !
  476. 6004 goto 3263
  477. 6010 print""
  478. 6011 printtab(16)"[206][145][164][164][164][164][164][164][157][206][157][157][157][157][157][157][157][163][163][163][163][163][163][145]"
  479. 6020 forq=1to8
  480. 6021 printtab(17)" [171][192][179] "
  481. 6022 printtab(17)"[202][198][210][198][203]"
  482. 6023 printtab(17)"  [221]  "
  483. 6024 printtab(17)"  [221]  "
  484. 6025 printtab(17)"[154][193] [193] [193][154]"
  485. 6026 printtab(17)"[221][213][219][201][221]"
  486. 6027 printtab(17)"[202][203][218][202][203]"
  487. 6030 print"[145][145][145][145][145][145][145]"
  488. 6031 fort=1to300:nextt
  489. 6040 nextq
  490. 6050 goto3000
  491. 6999 rem"[141]block vi:kleinprogramm hof,scheune etc.
  492. 7000 [153]"load":ir[178]1
  493. 7011 [153]"sie sind auf dem scheunendach"
  494. 7020 [129]q[178]1[164]4[172]40:[153]"verifystepwaitstepstop(NULL)verify";:[130]
  495. 7030 [153]"                                     waitstep"
  496. 7031 [153]"stoptab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(";
  497. 7032 [153]"ononon"
  498. 7040 [129] t[178]1[164]4
  499. 7041 [153][163]30)"stop-tantan<cont";:[139]t[177]1[167][153]"stopthencont";
  500. 7045 [153]
  501. 7050 [130]t
  502. 7060 [133]"was jetzt";a$
  503. 7070 [139] a$[178]"o"[167] z[178]3:x[178]1:y[178]3:ir[178]0:[137]10
  504. 7072 [139]a$[178]"besitz?"[167] [141]3330
  505. 7073 [139] a$[178]"besitz?"[167]7000
  506. 7080 [139] a$[178]"w"[176]a$[178]"n"[176]a$[178]"s"[167] 7085
  507. 7081 [137] 7090
  508. 7085 [153]"loadstopsie sind vom dach gefallen":[137] 3263
  509. 7090 [139]a$[178]"kletter leiter"[176] a$[178]"r"[167]7110
  510. 7100 [153]"unmoeglichwaitonon":[137]7060
  511. 7110 [153]"load";
  512. 7112 [153]"stop(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)contwaitsgn sgncont(NULL)  (NULL)"
  513. 7113 [153]"stop(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)contwait sgncont(NULL)(NULL)"
  514. 7114 [153]"stop(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)contwaitsgncontsinusrusrusrusrusrusrusr"
  515. 7115 [153]"stop(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)wait-tan<(NULL)(NULL)(NULL)(NULL)wait"
  516. 7120 [129]t[178]1[164]6
  517. 7121 [153]"verify                  stopwait-tan<verify    wait"
  518. 7122 [153]"stop                  stopwait-tan<stop    wait"
  519. 7130 [130]:[153]"cont"
  520. 7140 [153]""
  521. 7150 [153]"stop(NULL)str$valvalstr$right$"
  522. 7160 [153]"stop(NULL)    (NULL)"
  523. 7161 [153]"stop(NULL)    (NULL)"
  524. 7162 [153]"stop(NULL)    (NULL)"
  525. 7163 [153]"stop(NULL)    (NULL)"
  526. 7164 [153]"stop(NULL)    (NULL)"
  527. 7165 [153]"stop(NULL)    (NULL)cont"
  528. 7166 [153]"       sie sind im hof!on  ";
  529. 7170 [129]w[178]25[164]30:[153][163]w)"(NULL)":[130]
  530. 7180 [153]""
  531. 7188 [129]w[178]1[164]20:[153][163]31)"sinwait";
  532. 7190 [139]w[178]4[176]w[178]12[167][153]"(NULL)   ";
  533. 7191 [139]w[178]8[176]w[178]16[167][153]"(NULL)   wait";
  534. 7193 [139](w[177]4[175]w[179]8)[176](w[177]12[175]w[179]16)[167][153]" ";
  535. 7195 [153]:[130]
  536. 7196 [139]hund[178]1[167][141]12200
  537. 7198 [153][163]32)"onandandandandandandand"
  538. 7200 [153]""
  539. 7201 [153][163]3)"print#(NULL)"
  540. 7202 [153][163]3)" waitstop(NULL)"
  541. 7203 [153][163]3)"sinwaitusrchr$print#(NULL)waitstoptan^"
  542. 7204 [153][163]3)"logwaitandchr$print# stopcos"
  543. 7205 [153][163]3)"     "
  544. 7206 [153][163]3)"     "
  545. 7207 [153][163]3)"logand andwaitcoscont";
  546. 7210 [133]"was jetzt";a$
  547. 7215 [139]hu[178]1[175](((gg[175]32)[179][177]32)[176]a$[179][177]"leg dose ab"[176]ds[178]0)[167][137]13000
  548. 7220 [139] a$[178]"h"[176]a$[178]"kletter leiter"[167][137] 7000
  549. 7221 [139] a$[178]"o"[167]x[178]1:y[178]1:z[178]5:[137]10
  550. 7222 [139] a$[178]"n"[167]30000
  551. 7225 [139]a$[178]"besitz?"[167][141]3330
  552. 7226 [139]a$[178]"besitz?"[167]7110
  553. 7230 [139] a$[178]"kletter brunnen"[167] 7300
  554. 7231 [139]a$[178]"leg dose ab"[175] hu[178]1[175]ds[178]1[167]hu[178]2:zg[178]zg[171]1:[137]7233
  555. 7232 [137]7240
  556. 7233 [153]"onononstopder hund ist mit der dose ":gg[178]gg[171]32
  557. 7234 [153]"stopin sein versteck gelaufencont"
  558. 7235 [151]53248[170]21,0:[129] sa[178]1[164]2500:[130]:[137]7110
  559. 7240 [153]"unmoeglichon";:[137]7200
  560. 7300 [153]"loadcontsie sind im brunnen!"
  561. 7310 [129]q[178]1[164]5:[153][163]8)"forsqrsqrstop                for(NULL)(NULL)"
  562. 7311 [153][163]8)"forandsqrstop               /for(NULL)and":[130]
  563. 7315 [153][163]8)"forsqrsqrstop     spc(spc(spc(spc(spc(spc(     for(NULL)(NULL)"
  564. 7316 [153][163]8)"forandsqrstop    spc(spc(spc(spc(spc(spc(spc(spc(   /for(NULL)and"
  565. 7317 [153][163]8)"forsqrsqrstop   spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(   for(NULL)(NULL)"
  566. 7319 [153][163]8)"forandsqrstop   spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(  /for(NULL)and"
  567. 7320 [153][163]8)"forsqrsqrstop   spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(   for(NULL)(NULL)"
  568. 7321 [153][163]8)"forandsqrstop   spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(  /for(NULL)and"
  569. 7324 [129]q[178]1[164]2:[153][163]8)"forsqrsqrcont(NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) for(NULL)(NULL)"
  570. 7325 [153][163]8)"forandsqrcont (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)for(NULL)and":[130]
  571. 7330 [133]"contwas jetzt ";a$
  572. 7340 [139] a$[178]"h"[176][200](a$,7)[178]"kletter"[167] 7110
  573. 7350 [139] a$[178]"n"[167]7370
  574. 7355 [139]a$[178]"besitz?"[167][141]3330
  575. 7356 [139]a$[178]"besitz?"[167]7300
  576. 7360 [153]"unmoeglichononon"
  577. 7365 [137] 7330
  578. 7370 [153]"loadcontsie sind in einem zweiten brunnen"
  579. 7371 [153]"auf der anderen seite der scheune!"
  580. 7380 [129]q[178]1[164]7:[153][163]8)"forsqrsqrstop       for(NULL)stop        for(NULL)(NULL)"
  581. 7381 [153][163]8)"forandsqrstop       for(NULL)stop        for(NULL)and":[130]
  582. 7382 [153][163]8)"forsqrsqrstop                for(NULL)(NULL)"
  583. 7383 [153][163]8)"forandsqrstop                for(NULL)and"
  584. 7394 [129]q[178]1[164]2:[153][163]8)"forsqrsqrcont(NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) for(NULL)(NULL)"
  585. 7395 [153][163]8)"forandsqrcont (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)for(NULL)andcont":[130]:[153]"swaitued ist moeglich"
  586. 7400 [133]"contwas jetzt ";a$
  587. 7410 [139] a$[178]"kletter seil"[167] 7500
  588. 7420 [139] a$[178]"s"[167]7300
  589. 7425 [139]a$[178]"besitz?"[167][141]3330
  590. 7426 [139]a$[178]"besitz?"[167]7370
  591. 7430 [153]"unmoeglichwaitonon"
  592. 7435 [137] 7400
  593. 7500 [153]"load":ir[178]1
  594. 7514 [129]w[178]1[164]6:[153][163]28)"sgn":[130]
  595. 7520 [153]"onononfor(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  596. 7521 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  597. 7522 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)cont"
  598. 7530 [129]w[178]28[164]38:[153][163]w)"(NULL)":[130]
  599. 7540 [153]"ononononononononononononononononon"
  600. 7544 [153][163]28)"sgn sgn"
  601. 7545 [153][163]28)"****cont sgn sgn"
  602. 7546 [153][163]28)"*def(NULL)****cont(NULL) sgn"
  603. 7547 [153][163]28)"******def(NULL)*cont(NULL)sgn"
  604. 7548 [153][163]28)"def(NULL)****def(NULL)**"
  605. 7549 [153][163]28)"*def(NULL)****"
  606. 7550 [153][163]28)"****"
  607. 7551 [153][163]28)"forspc((NULL)"
  608. 7552 [153][163]28)"forspc((NULL)"
  609. 7553 [153][163]28)"forspc((NULL)"
  610. 7554 [153][163]28)"forspc((NULL)"
  611. 7560 [153]""
  612. 7570 [129]q[178]3[164]8:[153][163]q)"* * * * * *":[130]                                   
  613. 7700 [153]"  sie sind im garten !"
  614. 7701 [153][163]25)"stop/forlogprint#usrwaitnewusrforcoswaitstop^"
  615. 7702 [153][163]25)" forgetprint#frestop(NULL)print#freforgetstopwait/tan"
  616. 7703 [153][163]25)" stoplogwaitand(NULL)andcos"
  617. 7704 [153][163]25)" stop     "
  618. 7705 [153][163]25)" stop     "
  619. 7706 [153][163]25)" stoplogand andwaitcoscont"
  620. 7707 [139]hu[178]3[167][141]12200
  621. 7720 [133]"was jetzt ";a$
  622. 7725 [139]hu[178]3[167]13000
  623. 7730 [139][200](a$,7)[179][177]"kletter"[176][201](a$,4)[179][177]"baum"[167]7780
  624. 7740 [153]"load"
  625. 7750 [153]"contsie sind ueber den apfelbaum"
  626. 7760 [153]"wieder ins obergeschoss"
  627. 7761 [153]"des hauses gelangt !"
  628. 7770 x[178]1:y[178]3:z[178]2:[129]t[178]1[164]3000:[130]:ir[178]0:[137]10
  629. 7780 [139] a$[178]"kletter brunnen"[167]7370
  630. 7781 [139] a$[178]"s"[167]30000
  631. 7785 [139]a$[178]"besitz?"[167][141]3330
  632. 7786 [139]a$[178]"besitz?"[167]7500
  633. 7790 [153]"unmoeglichwaitonon":[137]7720
  634. 7999 [143]"gosubblock vii:moebel-zeichnen
  635. 8000 forq=6to0step-1
  636. 8010 if(mo and(2^q))=2^qthengoto8080
  637. 8020 nextq
  638. 8025 ifpa=1thengosub12000
  639. 8026 ifx=4andy=2andz=3thengosub12100
  640. 8030 goto85
  641. 8080 onqgoto8150,8198,8217,8250,8300,8430
  642. 8090 print""
  643. 8100 printtab(22)"[223]        [223]"
  644. 8110 printtab(22)"[182][223]        [223]"
  645. 8120 printtab(22)"[182][182][182][182]"
  646. 8121 printtab(22)"[182][182][182][182]"
  647. 8125 printtab(22)"[182][182]"
  648. 8130 goto8020
  649. 8150 print""
  650. 8160 print"[207][183][183][208][205]"
  651. 8161 print"[180]  [170] [205]"
  652. 8162 print"[180]  [170] [221][205]"
  653. 8170 forw=1to10:print"[180]  [170] [221][170]":next
  654. 8180 print"[180]  [170] [221][206]"
  655. 8181 print"[180]  [170] [206]"
  656. 8182 print"[204][175][175][186][206]"
  657. 8190 print"[145][145][145][145][145][145][145][145][221]"
  658. 8195 goto8020
  659. 8198 ify<>1then goto 8500
  660. 8200 print"":ifx<>3ory<>1orz<>3orbo=1thenprint"[145]":goto8209
  661. 8201 iftr=1then8206
  662. 8202 printtab(14)"[213][192][192][192][201]"
  663. 8203 printtab(14)"[179][213][201] [221]"
  664. 8204 printtab(14)"[179][202][203] [221]"
  665. 8205 printtab(14)"[202][192][192][192][203]":goto8210
  666. 8206 printtab(9)"[213][192][192][192][201][213][192][192][192][201]"
  667. 8207 printtab(9)"[221]   [171][179]   [221]":printtab(9)"[221]   [171][179]   [221]"
  668. 8208 printtab(9)"[202][192][192][192][203][202][192][192][192][203]":goto8210
  669. 8209 printtab(11)"    [144].    "
  670. 8210 printtab(11)"[154][172][162][162][162][162][162][162][162][162][187]"
  671. 8211 printtab(11)"[161][158][192][209][192]     [154][161]"
  672. 8212 printtab(11)"[161][158][206][221][205][154] [169][223][146]  [161]"
  673. 8213 printtab(11)"[161] [169][223][169]  [223][169][161]"
  674. 8214 printtab(11)"[161][169] /   / [161]"
  675. 8215 printtab(11)"[188][146][162][162][162][162][162][162][162][162][190]"
  676. 8216 goto8020
  677. 8217 print"":si$="[209][209][209][209][209][209]":ifsi=0thensi$="[215][215][215][215][215][215]"
  678. 8221 printtab(6)"[175][175][175][175] [180][180]
  679. 8222 [153][163]6)"andandand sgnsgnsgn
  680. 8223 printtab(6)"[175][175] [180][180][180][180]
  681. 8224 [153][163]6)" and(NULL)(NULL)(NULL)(NULL)(NULL)
  682. 8225 printtab(6)"[170]"si$"[180]
  683. 8226 [153][163]6)"+......sgn
  684. 8227 printtab(6)"[170]:=[146]::::[180]
  685. 8228 [153][163]6)"+  (NULL) (NULL) sgn
  686. 8229 printtab(6)" [183][183][183][183][183][183]
  687. 8230 [153][163]6)"sicherungen!wait"
  688. 8250 [153]"":j[178]30:lk$[178]""
  689. 8251 [139](tt [175]4)[178]0[167]j[178]j[170]2:[139]x[178]1[175]y[178]1[175]z[178]4[167]lk$[178]"fn"
  690. 8260 [153][163]j)"(NULL)(NULL)usr(NULL)"
  691. 8261 [153][163]j)"(NULL) sgn +"lk$
  692. 8262 [153][163]j)"+tab((NULL)sgn +"lk$
  693. 8263 [153][163]j)"+(NULL) sgn +"lk$
  694. 8264 [153][163]j)"+tab(tab(sgn +"lk$:[139]j[178]32[167][153][163]j)"+  sgn +"lk$
  695. 8265 [153][163]j)"+ascascsgn +"lk$
  696. 8266 [153][163]j)"+  sgn +"lk$:[139]j[178]32[167][153][163]j)"+  sgn +"lk$
  697. 8267 [153][163]j)"+totosgn +"lk$
  698. 8268 [153][163]j)"+(NULL) sgn +"lk$
  699. 8269 [153][163]j)"+to(NULL)sgn +"lk$
  700. 8270 [153][163]j)" sgn +"lk$
  701. 8271 [153][163]j)"(NULL)andsqr"lk$
  702. 8275 [137]8020
  703. 8300 [153]"cont"
  704. 8310 [153][163]19)"(NULL)str$valvalvalstr$valvalvalstr$right$"
  705. 8311 [153][163]19)"chr$ . . . . left$"
  706. 8312 [153][163]19)"(NULL)>right$ . . . (NULL)>right$"
  707. 8313 [153][163]19)"chr$.-str$str$str$lenstr$str$str$<.left$"
  708. 8314 [153][163]19)"mid$ascascascascascascascascascascasc(NULL)"
  709. 8315 [153][163]19)"/tantantantantantantantantanexp"
  710. 8317 [139]x[178]3[175]y[178]2[175]z[178]1[175]lo[178]1[167][153]"ononononon":[153][163]19)ws$"atn atncontcmdcmdcmd(NULL)right$(NULL)cmdcmdcmd(NULL)mid$(NULL)
  711. 8318 goto8020
  712. 8400 print""
  713. 8410 printtab(8)"[154][169]**********************[223]"
  714. 8411 printtab(7)"[154][169]*                      *[223]"
  715. 8412 printtab(6)"[154][169]**************************[223]"
  716. 8420 goto 8020
  717. 8430 print""
  718. 8440 printtab(10)"[167][223]"
  719. 8441 printtab(10)"[167][223][223]"
  720. 8442 printtab(10)"[167][223][165]"
  721. 8444 printtab(10)"[167][165]"
  722. 8445 printtab(10)"[167][223] [165][223]"
  723. 8446 printtab(10)"[167][223][165] [223]"
  724. 8447 printtab(10)"[167][165][165][167]"
  725. 8448 printtab(10)"[165][167]"
  726. 8450 goto8020
  727. 8500 print""
  728. 8510 printtab(11)"[154][172][162][162][162][162][162][162][162][187]"
  729. 8511 printtab(11)"[161]    [158][192][209][192][154][161]"
  730. 8512 printtab(11)"[161] [150][169][223][158][146] [206][221][205][154][161]"
  731. 8513 printtab(11)"[161] [152][212][217][193][193][193][154] [161]"
  732. 8514 printtab(11)"[161]       [154][161]"
  733. 8515 printtab(11)"[188][146][162][162][162][162][162][162][162][190]"
  734. 8516 goto8020
  735. 8900 forqw=1to3
  736. 8902 print""
  737. 8910 forw=1to14:print""chr$(20);"[167][148]":next
  738. 8915 fort=1to300:next
  739. 8920 nextqw
  740. 8925 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":forwq=1to15:print" ":next
  741. 8931 print" [206][145][206][145][206]":tt(3,3,2)=7:tt=7
  742. 8932 print"die tuer hat sich hinter ihnengeschlossen!!"
  743. 8935 goto3000
  744. 8999 rem"[141]unterprogramm leichen
  745. 9000 [153]""
  746. 9004 [153][163]10)"(NULL)"
  747. 9005 [153][163]10)"t"
  748. 9010 [153][163]10)"(NULL)step   (NULL)(NULL)"
  749. 9020 [153][163]10)" spc(spc(spc(spc( c(NULL)usrusr(NULL)(NULL)(waitstopsgncont"
  750. 9021 [137] 3000
  751. 9030 [153]"cont":[153][163]17)"+"
  752. 9031 [153][163]17)"sqr"
  753. 9032 [153][163]17)"+ stopand"
  754. 9033 [153][163]17)"cont+step%waitstopsgncont"
  755. 9034 [153][163]17)"right$waitstep"
  756. 9035 [153][163]17)"step(NULL)"
  757. 9036 [153][163]16)"abs(NULL)(NULL)waitint"
  758. 9037 [153][163]16)"abs(NULL)(NULL)waitint"
  759. 9038 [153][163]16)"sgnsgn"
  760. 9039 [153][163]16)"sgnsgn"
  761. 9040 [153][163]16)"sgnsgn"
  762. 9041 [153][163]16)"exp/"
  763. 9042 [137] 3000
  764. 9999 [143]"gosubblock viii:gegenstaende zeichnen
  765. 10000 ge=ge(x,y,z):ge$="":ifx=2andy=2andz=4thenge$="leiche"
  766. 10001 ifx=4andy=2andz=3thenge$="skorpion"
  767. 10002 ifx=1andy=1andz=1thenge$="leiche"
  768. 10003 forw=0to7
  769. 10010 if(geand2^w)=2^wthengoto10040
  770. 10020 nextw
  771. 10021 ifx=3andy=1andz=3andbo=0thenge$=ge$+" tresor[154]"
  772. 10022 iflen(ge$)>37then10031
  773. 10023 iflen(ge$)>37thenprint""left$(ge$,37);"=":printright$(ge$,len(ge$)-37)
  774. 10024 iflen(ge$)>37then10030
  775. 10026 print""ge$
  776. 10030 goto86
  777. 10031 print""left$(ge$,37);"=":print""right$(ge$,len(ge$)-37):return
  778. 10040 onwgoto10060,10070,10080,10090,10100,10110,10120
  779. 10050 print"[154]":iftr=0orx<>3ory<>1orz<>3thenprint""
  780. 10051 tb=27:iftr=1andx=3andy=1andz=3thentb=15
  781. 10058 printtab(tb)"[255][196][215]":ge$=ge$+" schluessel"
  782. 10059 goto 10020
  783. 10060 print"[154]"
  784. 10061 printtab(25)"[215]"
  785. 10062 printtab(25)"[205][154][193][206]"
  786. 10063 printtab(25)"[175][154][213][162][146][201][175]"
  787. 10064 printtab(25)"[154][202][162][203]"
  788. 10065 printtab(25)"[206][154][188][184][190][205][154]":ge$=ge$+" laterne"
  789. 10066 goto 10020
  790. 10070 print"[154]"
  791. 10071 printtab(34)"[176]"
  792. 10072 printtab(34)"[172][146][165]"
  793. 10073 printtab(34)"[188][146][165]":ge$=ge$+" spruehflasche"
  794. 10074 goto 10020
  795. 10080 print"[154]"
  796. 10081 printtab(18)"[181][182]"
  797. 10082 printtab(18)"[213][203][202][201]"
  798. 10083 printtab(18)"[221]==[146][221]"
  799. 10084 printtab(18)"[202][192][192][203]":ge$=ge$+" flasche"
  800. 10085 goto10020
  801. 10090 print"[154]"
  802. 10091 printtab(16)"[205][206]"
  803. 10092 printtab(16)"[162][162]":ge$=ge$+" brief"
  804. 10093 goto 10020
  805. 10100 print"[154]"
  806. 10101 printtab(8)"[213][196][201]"
  807. 10102 printtab(8)"[171][198][179]"
  808. 10103 printtab(8)"[221]=[146][221]"
  809. 10104 printtab(8)"[202][198][203]":ge$=ge$+" dose"
  810. 10105 goto10020
  811. 10110 print"[154]"
  812. 10111 printtab(2)"[213][201][223]"
  813. 10112 printtab(2)"[202]  [146][206]"
  814. 10113 printtab(2)"  ":ge$=ge$+" giesskanne"
  815. 10114 goto10020
  816. 10120 gosub12000
  817. 10130 goto 10020
  818. 10998 rem"[141]
  819. 10999 [143]"gosubunterprogramm brief
  820. 11000 print"[147]"
  821. 11010 printchr$(14)
  822. 11020 printtab(5)"[154][204]ieber [207]nkel [193]dalbert !":print
  823. 11030 print"[218]u [196]einem [199]eburtstage wuensche"
  824. 11032 print"ich [196]ir [193]lles [199]ute ."
  825. 11033 print"[215]ie geht es [196]ir ? [205]ir geht es"
  826. 11034 print"gut . [196]as [215]etter ist schoen .":print
  827. 11035 print"[201]ch hoffe , dass [196]u in dem"
  828. 11036 print"[197]rbschaftsstreit um [212]ante "
  829. 11037 print"[199]erlindes [200]interlassenschaft"
  830. 11038 print"[196]einen rechtmaessigen [193]nteil"
  831. 11039 print"erhalten werdest !":print
  832. 11040 print"[201]ch wuensche [196]ir ein recht "
  833. 11041 print"langes [204]eben !":print
  834. 11042 print""co" [199]ruesse von [196]einem [206]effen [157][157][157][157][198][210][201][196][207][204][201][206]"
  835. 11050 gets$:ifs$=""then11050
  836. 11055 print"[147]"
  837. 11060 printchr$(142)
  838. 11070 goto 10
  839. 11998 rem"[141][142]
  840. 11999 [143]"gosubunterprogramme sprites
  841. 12000 v=53248
  842. 12010 pokev+41,5:pokev+21,4:poke2042,13:pokev+23,0:pokev+29,0
  843. 12020 pokev+4,255:pokev+5,110
  844. 12030 return
  845. 12100 rem skorpion bewacht geheimtuere            ****************************
  846. 12101 v=53248
  847. 12110 pokev+42,10:pokev+21,(peek(v+21)or8):poke2043,15:pokev+23,0:pokev+29,0
  848. 12120 pokev+6,125:pokev+7,180
  849. 12130 return
  850. 12200 rem hund
  851. 12201 v=53248
  852. 12210 pokev+42,0:pokev+21,(peek(v+21)or8):poke2043,14:pokev+23,8:pokev+29,8
  853. 12220 pokev+6,200:pokev+7,180
  854. 12230 return
  855. 12999 rem"[141]diverse unterprogramme
  856. 13000 [153]"loadder hund hat sie verschlungen !":[137]3263
  857. 14000 [153]"load"
  858. 14001 [129]i[178]5[164][171]20[169][171]1
  859. 14005 [151]53280,1:[151]53281,0
  860. 14006 [129]t[178]1[164](i[172]20):[130]t
  861. 14010 [151]53280,0:[151]53281,1
  862. 14011 [129]w[178]1[164](i[172]20):[130]w
  863. 14020 [130]i
  864. 14025 [151]53280,6:[151]53281,6
  865. 14030 [153]""
  866. 14040 [153]"in diesem zimmer war gas ausgestroemt !"
  867. 14050 [153]"es hat sich an der laterne entzuendet..."
  868. 14060 [153]"...und ist explodiert !!!"
  869. 14070 [137] 3263
  870. 14099 [143]"gosubunterprogramm flasche
  871. 14100 print"                                       [145]"
  872. 14101 input"wohin ";le$:print"[145][145]"
  873. 14105 ifx=2andy=4andz=1then14900
  874. 14110 if((ggand4)=4)andsf=0andright$(le$,13)="spruehflasche"then sf=1:goto1610
  875. 14111 if((ggand4)=4)andsf=2andright$(le$,13)="spruehflasche"then 14200
  876. 14120 print"[147]sie haben sich mit dem chloroform ":print
  877. 14130 print"selbst betaeubt !":goto3263
  878. 14140 print"[147]sie haben sich bei dem versuch,":print
  879. 14150 print"den moerder zu betaeuben,":goto14130
  880. 14200 print"die spruehflasche ist noch voll parfuem":fi=1:goto3000
  881. 14300 print"[147]"
  882. 14310 print"sie sind auf dem dach ins rutschen":print
  883. 14320 print"gekommen und abgestuertzt !":goto3263
  884. 14500 print""
  885. 14510 input" was jetzt ";a$
  886. 14515 if((ggand8)=8)anda$="leere flasche"then14600
  887. 14520 if((ggand4)=0)ora$<>"leere spruehflasche"then14900
  888. 14530 ifsf<>1then14800
  889. 14540 goto15000
  890. 14600 input" wohin ";le$
  891. 14610 ifright$(le$,7)="moerder"then14140
  892. 14620 ifright$(le$,13)="spruehflasche"then14900
  893. 14630 goto14120
  894. 14800 print"[147]"
  895. 14810 print"der moerder lies sich von ihrem":print
  896. 14820 print"parfuem nicht beeindrucken...":print""
  897. 14830 print"...er hat sie getoetet!!":goto3263
  898. 14900 print"[147]"
  899. 14910 print"der moerder hat sie ueberwaeltigt!!":print
  900. 14920 print"[144]sie sind tot![154]":goto3263
  901. 15000 print"[147]"
  902. 15010 rem trae trae trae!
  903. 15020 print"bravo!!!":print"sie haben den moerder betaubt,":rem"[141][147]
  904. 15030 [153]"und koennen ihn jetzt der polizei "
  905. 15040 [153]"uebergeben."
  906. 15050 [153]"sie wird ihm seine gerechte stafe"
  907. 15060 [153]"zukommen lassen."
  908. 15070 [141]20000
  909. 15080 [151]631,144:[151]198,1:[153]"stop  rconteaclrdsysy!!":[151]53248[170]21,0:[128]
  910. 16999 [143]"gosubspielregeln
  911. 17000 print"[147][154]";
  912. 17010 print"*** miss marple ***"
  913. 17020 print"'miss marple' ist ein adventure-spiel."
  914. 17030 print"ziel des spiels ist es,einen"
  915. 17040 print"gefaehrlichen doppelmoerder"
  916. 17050 print"aufzuspuehren und zu ueber-":print"waeltigen."
  917. 17060 print"er befindet sich im inneren "
  918. 17070 print"eines dreistoeckigen hauses."
  919. 17071 print"                                     *)"
  920. 17075 print"richtungen: w,o,n,s,h[154](hoch),r[154](runter)
  921. 17080 [153]"folgende befehle (gefolgt von einem"
  922. 17090 [153]"substantiv) sind ausserdem moeglich:"
  923. 17100 [153]"nimm...",,:[153]"leg...ab"
  924. 17110 [153]"oeffne...",,:[153]"loesche..."
  925. 17120 [153]"leere...",,:[153]"entferne..."
  926. 17130 [153]"kletter...",:[153]"lies..."
  927. 17140 [153]"schalte...ein",:[153]"verschiebe..."
  928. 17145 [153]"contmit'besitz?cont'erfaehrt man,welche gegen=  staende man traegt"
  929. 17150 [153]"contzb.:    kletter contbank / leg contmesser ab"
  930. 17160 [153]"falsch: kletter  contbank / leg ab contmesser"
  931. 17165 [153]"        *)man schaut immer nach nordenon"
  932. 17170 [137]2000
  933. 17200 [153]"fertig ?cont";
  934. 17210 [161]ge$:[139]ge$[179][177]"j"[167]17210
  935. 17220 [141] 20000
  936. 17230 [137] 10
  937. 19999 [143]"gosub** musik **
  938. 20000 poke53248+21,0
  939. 20001 sy=54272:fl=sy:fh=sy+1:l=sy+24:w=sy+4:a=sy+5:h=sy+6:th=sy+3:tl=sy+2
  940. 20010 pokel,15:pokea,0:pokeh,0
  941. 20020 en=qy
  942. 20030 fort=0toen-1
  943. 20040 pokefh,hh(t):pokefl,ll(t):dd=dd(t)
  944. 20050 ift<10thenpokew,129:goto20080
  945. 20060 pokel,5:pokea,9:pokeh,0:poketh,0:poketl,255
  946. 20070 pokew,65
  947. 20080 forer=1to45*dd:nexter
  948. 20090 pokew,0:nextt
  949. 20100 return
  950. 21000 fort=0to62:poke832+t,sp(1,t):next
  951. 21010 fort=0to62:poke832+t+64,sp(2,t):next
  952. 21020 fort=0to62:poke832+t+128,sp(3,t):next
  953. 21025 return
  954. 21028 rem"[141]sprites fuer moerder
  955. 21030 v[178]53248
  956. 21040 [151]2040,13:[151]2041,14:[151]2042,15
  957. 21050 [151]v[170]39,0:[151]v[170]40,0:[151]v[170]41,0
  958. 21060 [151]v,100:[151]v[170]2,100:[151]v[170]4,100
  959. 21070 [151]v[170]1,135:[151]v[170]3,156:[151]v[170]5,177
  960. 21075 [151]v[170]23,0:[151]v[170]29,0
  961. 21080 [151]v[170]21,7
  962. 21090 [153]"stopmoerder":[142]
  963. 21199 [143]"gosubtitelbild
  964. 21200 print"[147][201][213][213][201][213][201][157][157][157][157][157][157][221][221][199] [202][201][157][157][157][157][157][157][202][203][202][203][202][203]"
  965. 21210 print"presents:"
  966. 21215 print:print:print
  967. 21220 print" [223][169]  [169] [223][169] [223] [223][169] [169] [223]  [223]  [223]    "
  968. 21222 print" [146][223][169]     [146][223][169]         "
  969. 21224 print"   [146][223] [223][146][223] [223]       [146][169]  [146][169]    "
  970. 21226 print"          [146][223][223]   "
  971. 21228 print"   [146][223] [146][169][146][223] [146][169]            "
  972. 21230 print"    ***written by j+m+m kuppe 1984***"
  973. 21235 print:print"[154](warnung:dies ist ein amateurprogramm!)"
  974. 21240 print:print"    (nc)  no copyrirht 1984 by ucs"
  975. 21250 print"space";
  976. 21290 geta$:ifa$=""then21290
  977. 21298 goto2
  978. 21299 rem"[141]trauriges ende
  979. 21300 [153][163]17)"*     *"
  980. 21301 [153][163]17)"cont(NULL)  stop(NULL)cont  (NULL)"
  981. 21302 [153][163]17)"stopv step (NULL)wait v"
  982. 21303 [153][163]17)"(NULL) sgn(NULL)+wait (NULL)"
  983. 21304 [153][163]17)"> logfrecos >"
  984. 21310 [153]"     verehrte trauergemeinde..."
  985. 21320 [153]"     wir sind hier zusammengekommen,"
  986. 21330 [153]"     um unserem/unserer lieben..."
  987. 21340 [153]"     die letzte ehre zu erweisen...":[128]
  988. 29999 [143]"gosubscheuneninneres
  989. 30000 print"[147]"
  990. 30010 forq=1to14:print"[129][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167]":next
  991. 30020 forq=1to7:print"[129][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205]":next
  992. 30030 print""
  993. 30040 printtab(10)"[206]     [205]"
  994. 30041 printtab(10)" [146][169]   [223][167]"
  995. 30050 forx=1to7:printtab(10)" [146]     [167]":next
  996. 30060 print"[154]sie sind in der scheune[129][146]*******"
  997. 30080 print"**********"
  998. 30090 print"*************"
  999. 30095 print"[204][175][175][175][175][175][175][175][175][175][175][175][186]"
  1000. 30098 print"[205][205][205][205][205][205]"
  1001. 30100 print"":forq=1to10:printtab(27)"[171][192][179]":next
  1002. 30105 print"":printtab(27)"[171][198][179]"
  1003. 30110 ifhu=2thengosub12200:goto30130
  1004. 30120 goto30160
  1005. 30130 hu=3
  1006. 30140 forq=1to1000:next:pokev+21,0
  1007. 30150 print"[154] der hund ist in den garten gelaufen"
  1008. 30160 print"[154]s[146]ued ist moeglich":input"was jetzt";a$
  1009. 30170 ifa$="s"then7110
  1010. 30172 ifa$="n"then7500
  1011. 30180 ifa$="besitz?"thengosub3330
  1012. 30181 ifa$="besitz?"then30000
  1013. 30185 ifa$="kletter leiter"then30200
  1014. 30190 print"unmoeglich";:goto30160
  1015. 30200 print"[147][144]die leiter war morsch!":print"sie sind heruntergefallen und haben"
  1016. 30210 print"sich das genick gebrochen!"
  1017. 30220 goto3263
  1018. 30999 rem"[141]dach
  1019. 31000 [153]"loaddefandandandandandandandandandand contsie sind auf dem dach!def"
  1020. 31001 [129]q[178]1[164]20
  1021. 31002 [129]p[178]1[164]10[170]q:[153]"(NULL)";:[130]:[153]
  1022. 31004 [130]
  1023. 31010 [153]"stopstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$^cmdchr$onstr$str$str$str$str$waitcos"
  1024. 31020 [153]"cont"
  1025. 31030 [153][163]12)"  sgn  "
  1026. 31031 [153][163]12)"  sgn  "
  1027. 31032 [153][163]12)"  sgn  "
  1028. 31033 [153][163]12)"(NULL) sgn  "
  1029. 31034 [153][163]12)"(NULL)sgn  "
  1030. 31040 [153]""
  1031. 31050 [153][163]8)"(NULL)usrusrusrusr(NULL)"
  1032. 31051 [153][163]8)"(NULL)    (NULL)"
  1033. 31053 [153][163]8)"(NULL)andandandand(NULL)"
  1034. 31060 [153]"":[133]"was jetzt";a$
  1035. 31070 [137]14300
  1036. 31999 [143]"gosubgarage
  1037. 32000 print"[147]sie stehen vor der garage"
  1038. 32001 print"[154]":ifga=1then32100
  1039. 32010 print"[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  1040. 32020 fort=1to15:print"[170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][167][167][167]":next
  1041. 32030 print"[145][145][145][202][198][198][203]"
  1042. 32040 goto3000
  1043. 32100 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  1044. 32110 print"[180]                          [170]"
  1045. 32111 print"[180]                          [170]"
  1046. 32112 print"[180]                          [170]"
  1047. 32113 print"[180]                          [170]"
  1048. 32114 print"[180]                          [170]"
  1049. 32115 print"[180]                          [170]"
  1050. 32116 print"[180]                          [170]"
  1051. 32117 print"[180]     [176][196][196][178][196][196][174]              [170]"
  1052. 32118 print"[180]    [213].[196][197][144][216][154][197][196].[201]             [170]"
  1053. 32119 print"[180]    [221][219][146][154][165][168][166][168][167][219][146][154][221]      [144][199][221][200][154][146]    [170]"
  1054. 32120 print"[180]  [176][192][174]  [166][166][166]  [176][192][174]    [144][199][221])[146][154]    [170]"
  1055. 32121 print"[180]  [202][198][203]  [166][166][166]  [202][198][203]    [144][199][221][200][146][154]    [170]"
  1056. 32122 print"[180]  [144][170][214][146][180][154][192][192][183][184][183][192][192][144][167][214][146][165][154]    [144][199][221][200][146][154]    [170]"
  1057. 32123 print"[180]  [144][170][214][146][180][154]       [144][167][214][146][165][154]    [144][199][221][200][146][154]    [170]"
  1058. 32124 print"    [144][183]         [183][154]            "
  1059. 32125 print"auto muelltonne"
  1060. 32130 m$="[144][157][157][157][197][192][198]":ifmu=1thenm$="[144][205][205]"
  1061. 32140 print""m$"[154]"
  1062. 32150 ifsu=0andmu=1andga=1thenprint" in der muelltonne sind zwei alte schuhe"
  1063. 32160 ifa$="nimm schuhe"andsu=1thenprint" sie haben die schuhe nun an"
  1064. 32170 goto3000
  1065.